home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / bbs / kbalarm.zip / KBALARM.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-01-12  |  2KB  |  192 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     BOOLEAN001 = 0
  37.     STRING002 = 0
  38.     WrUNet PcbNode(), "Executing KBAlarm.PPE.. in process of Logon:", U_Name(), U_City, "", ""
  39.     If (Exist(PPEPath() + "KBalarm.cfg") > 0) Then
  40.         FOpen 1, PPEPath() + "KBalarm.cfg", 0, 0
  41.         FGet 1, INTEGER008
  42.         FGet 1, STRING002
  43.         If ((String(STRING002) == "n") || (String(STRING002) == "N")) Then
  44.             STRING002 = 0
  45.         Else
  46.             STRING002 = 1
  47.             Goto LABEL001
  48.         Else
  49.         Endif
  50.         :LABEL001
  51.         STRING003 = ""
  52.         INTEGER006 = ""
  53.         STRING005 = String(ReadLine(PCBDat(), 94))
  54.         For INTEGER007 = 1 To 40
  55.             STRING004 = Mid(STRING005, INTEGER007, 1)
  56.             INTEGER005 = Asc(STRING004)
  57.             INTEGER006 = INTEGER006 + INTEGER005
  58.         Next
  59.         If (INTEGER008 <> (INTEGER006 * Len(Strip(STRING005, " "))) * 8 - 3187) Then
  60.             Goto LABEL002
  61.         Else
  62.             BOOLEAN001 = 1
  63.         Endif
  64.         Goto LABEL003
  65.         :LABEL002
  66.         BOOLEAN001 = 0
  67.         :LABEL003
  68.         If (STRING002 && BOOLEAN001) Then
  69.             Goto LABEL004
  70.         Else
  71.             FreshLine
  72.             PrintLn "@X03KBalarm.PPE 1.1    By:Saudi BBS!    @X07+9662 667-2293"
  73.         Endif
  74.         :LABEL004
  75.         If (BOOLEAN001) Goto LABEL005
  76.         Print "@X0ARegistered to: @X0FUnregistered Evaluation Copy!"
  77.         Delay 91
  78.         Goto LABEL006
  79.         Goto LABEL004
  80.         :LABEL005
  81.         If (BOOLEAN001 && !STRING002) Then
  82.             PrintLn "@X0FRegistered to: @X0C" + STRING005
  83.         Endif
  84.         :LABEL006
  85.         DefColor
  86.         GetToken INTEGER001
  87.         If (INTEGER001 <= 0) Then
  88.             INTEGER001 = 900
  89.         Endif
  90.         GetToken INTEGER002
  91.         If (INTEGER002 <= 0) Then
  92.             INTEGER002 = 4
  93.         Endif
  94.         GetToken INTEGER003
  95.         If (INTEGER003 <= 0) Then
  96.             INTEGER003 = 800
  97.         Endif
  98.         GetToken INTEGER004
  99.         If (INTEGER004 <= 0) Then
  100.             INTEGER004 = 4
  101.         Endif
  102.         :LABEL007
  103.         FGet 1, STRING001
  104.         If (U_Name() == Upper(STRING001)) Goto LABEL008
  105.         If (String(STRING001) == "") End
  106.         Goto LABEL007
  107.         FClose 1
  108.         End
  109.         :LABEL008
  110.         Beep
  111.         End
  112.     Endif
  113.     Newline
  114.     PrintLn "@BEEP@@X0CSysop: @X0F@X0BKBalarm.cfg @X0Ffile is missing, Please check KBalarm.doc"
  115.     Newline
  116.     End
  117.  
  118. ;------------------------------------------------------------------------------
  119. ;
  120. ; Usage report (before postprocessing)
  121. ;
  122. ; ■ Statements used :
  123. ;
  124. ;    4       End
  125. ;    24      Goto 
  126. ;    18      Let 
  127. ;    1       Print 
  128. ;    3       PrintLn 
  129. ;    13      If 
  130. ;    1       FOpen 
  131. ;    1       FClose 
  132. ;    3       FGet 
  133. ;    1       DefColor
  134. ;    1       Delay 
  135. ;    2       Newline
  136. ;    4       GetToken 
  137. ;    1       Beep
  138. ;    1       WrUNet 
  139. ;    1       FreshLine
  140. ;
  141. ;
  142. ; ■ Functions used :
  143. ;
  144. ;    2       *
  145. ;    5       +
  146. ;    1       -
  147. ;    4       ==
  148. ;    1       <>
  149. ;    1       <
  150. ;    5       <=
  151. ;    1       >
  152. ;    2       >=
  153. ;    12      !
  154. ;    4       &&
  155. ;    2       ||
  156. ;    1       Len(
  157. ;    1       Upper()
  158. ;    1       Mid()
  159. ;    1       Asc()
  160. ;    2       U_Name()
  161. ;    1       Strip()
  162. ;    4       String()
  163. ;    1       PCBDat()
  164. ;    2       PPEPath()
  165. ;    1       PcbNode()
  166. ;    1       ReadLine()
  167. ;    1       Exist()
  168. ;
  169. ;------------------------------------------------------------------------------
  170. ;
  171. ; Analysis flags : d
  172. ;
  173. ; d - Access PCBOARD.DAT ■ 2
  174. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  175. ;     for many PPE so they can find various informations on the system
  176. ;     (system paths, max number of lines in messages, ...) but it may also
  177. ;     be a way to gather vital informations.
  178. ;     ■ Search for : PCBDAT()
  179. ;
  180. ;------------------------------------------------------------------------------
  181. ;
  182. ; Postprocessing report
  183. ;
  184. ;    1       For/Next
  185. ;    0       While/EndWhile
  186. ;    9       If/Then or If/Then/Else
  187. ;    0       Select Case
  188. ;
  189. ;------------------------------------------------------------------------------
  190. ;                 AEGiS Corp - Break the routines, code against the machines!
  191. ;------------------------------------------------------------------------------
  192.